perm filename TEST2.LST[S1,ALS] blob
sn#413747 filedate 1979-01-31 generic text, type T, neo UTF8
LINE # P/D LC LVL < STANFORD PASCAL_P COMPILER, VERSION OF AUG.-78 >
1 44 1) (*PROGRAM HEADER PAGE*)
2 44 1)
3 44 1) (*PAS10 OPTIONS*) (* D+,R32,S1300*) (*X10S1*)
4 44 1)
5 44 1) (* DEFAULT
6 44 1)
7 44 1) D+ DEBUG AND POSTMORTEM DUMP -
8 44 1) E+ EXTERNAL CALLS TO LEVEL 1 PROCEDURES ALLOWED -
9 44 1) FN FILE OPTION 1
10 44 1) I+ FORTRAN I/O IN EXTERNAL FORTRAN SUBROUTINES -
11 44 1) L+ OBJECT LISTING -
12 44 1) RN SIZE OF LOW-SEGMENT (SEE PAS10 MANUAL)
13 44 1) SN MAX INSTRUCTIONS PER STATEMENT 1000
14 44 1) T+ RUNTIME CHECK +
15 44 1) U+ 72 COLUMN FORMAT -
16 44 1) XN HIGHEST REGISTER FOR PARAMETERS 6
17 44 1) *)
18 44 1)
19 44 1) (*SLAC PCPASC OPTIONS*) (* B+,D+,M-*)
20 44 1)
21 44 1) (* DEFAULT
22 44 1)
23 44 1) A+ GENERATE 370 OBJECT MODULE -
24 44 1) A- GENERATE 370 ASSEMBLY MODULE
25 44 1) B+ BOUNDS CHECKING, BUT ALLOW 'BIG' CHARACTERS -
26 44 1) C+ EMIT PCODE +
27 44 1) D+ RUNTIME CHECKING OF POINTER, INDEX, SUBRANGE VALUES -
28 44 1) E+ FILE IS IN EBCDIC CHARACTER SET -
29 44 1) F+ SAVE FPR'S ON PROCEDURE/FUNCTION ENTRY +
30 44 1) K+ ENABLE STATEMENT EXECUTION COUNTING -
31 44 1) L+ LIST SOURCE PROGRAM +
32 44 1) M+ 72 COLUMN FORMAT +
33 44 1) P+ DOUBLE-WORD BOUNDARY ALIGNMENT -
34 44 1) S+ SAVE GPR'S ON PROCEDURE/FUNCTION ENTRY +
35 44 1) T+ PRINT SYMBOL TABLES (FOR POST-PROCESSOR) -
36 44 1) U+ GET STATISTICS?? 2ND PARAMETER TO PCODE BGN INSTR. -
37 44 1) V+ ?? 3RD PCODE BGN INSTRUCTION PARAMETER -
38 44 1) X+ USE ACTUAL PROCEDURE NAMES FOR EXTERNAL REFERENCES -
39 44 1) X- GENERATE UNIQUE 8-CHAR NAMES FOR EXTERNAL REFERENCES
40 44 1) *)
41 44 1)
42 44 1) (*S1 PCPASC OPTION DIFFERENCES*) (*$A+,B+,D+,L-,M120*) (*X10S1*)
105
M4 := HINT; ,'THIS IS MM'); R); = M1') R; ITH "X10S1" *) - LT NUAL)
**** ↑104
106
M5 := HINT; ,'THIS IS MM'); R); = M1') R; ITH "X10S1" *) - LT NUAL)
**** ↑104
**** 2 SYNTAX ERROR(S) DETECTED.
**** 108 LINE(S) READ, 3 PROCEDURE(S) COMPILED,
**** 106 P_INSTRUCTIONS GENERATED, 0.28 SECONDS IN COMPILATION.
**** ERREXIT CALLED WITH CODE = 2